home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 22
/
AACD 22.iso
/
CDTools
/
S
/
NewsFlash.awebrx
< prev
next >
Wrap
Text File
|
2000-12-02
|
780b
|
33 lines
/*
$VER: NewsFlash.awebrx 1.1 (2.12.2000) (c) Neil Bothwick, Wirenet
Loads the NewsFlash page into AWeb then resets the environment variables
1.1 - Uses "parse source" to get the name of the CD
*/
parse source . ' ' . ' ' . ' ' ScriptName ' ' .
CDName = left(ScriptName, pos(':', ScriptName) - 1)
/* Exit if no newsflash */
if ~exists(CDName':html/NewsFlash.html') then do
call delete('ENVARC:AACDNewsFlash')
exit
end
/* Wait for AWeb to load Welcome page */
options results
address command
do i = 1 to 15
CDName':System/Rexxc/WaitForPort AWEB.1'
if RC = 0 then leave
end
if RC > 0 then exit
address 'AWEB.1'
'WAIT ALL'
'OPEN URL "file://localhost/'CDName':html/NewsFlash.html" TARGET "main"'
/* Remove environment variable */
call delete('ENVARC:AACDNewsFlash')